99 POKEV+21,0:PRINTCHR$(8):POKE775,1:POKE808,225:POKE788,52 100 GOSUB236: 101 PRINT"[147]":POKE53280,0:POKE53281,0: 102 PRINT" ..SPIEL WIRD GELADEN.." 103 FORI=8576TO8655:READA:POKEI,A:NEXT 104 FORI=8192TO8199:READA:POKEI,A:NEXT 105 FORI=8512TO8527:READA:POKEI,A:NEXT 106 FORI=8472TO8479:READA:POKEI,A:NEXT 107 REM NEUE ZAHLEN 108 REM NEUE ZAHLEN 109 DATA 54,65,65,0,65,65,54,0,8,8,8,0,8,8,8,0,54,1,1,54,64,64,54,0,54,1,1,6,1 111 DATA 1,54,0,66,66,66,60,2,2,2,0 112 DATA 54,64,64,54,1,1,54,0,54,64,64,54,65,65,54,0,54,1,1,0,1,1,1,0,54,65,65 113 DATA 54,65,65,54,0,54,65,65,54,1,1,54,0 114 REM GEGNER 115 DATA65,99,54,93,28,28,8,8 116 REM EIGENES 117 DATA 0,128,128,193,209,209,251,239,0,1,1,131,139,139,223,247 118 REM EXPLOSION 119 DATA 129,165,165,90,90,90,60,24 120 REM >>>> SPIEL <<<<< 121 PRINT"[147]":POKE53280,0:POKE53281,0 122 REM MINIEDITOR 123 POKE53280,0 :POKE53281,0:PRINT"[147]":POKE214,0:SYS58640:POKE646,1 124 PRINT" "; 125 PRINT" "; 126 PRINT" "; 127 PRINT" "; 128 PRINT" "; 129 PRINT" "; 130 PRINT" "; 131 PRINT" "; 132 PRINT" "; 133 PRINT" "; 134 PRINT" "; 135 PRINT" "; 136 PRINT" "; 137 PRINT" "; 138 PRINT" "; 139 PRINT" "; 140 PRINT"[158] "; 141 PRINT" "; 142 PRINT" "; 143 PRINT" [213][195][201] [176][195][195][195][174] "; 144 PRINT" [174][206][205] [194][215][194] [176][195][195][174] "; 145 PRINT" [194][176][195][174][194] [194][206][205] [176][195][195][174][202][195][203][176][195][195][195][174] [194] "; 146 PRINT" [194] [194][173][195][189][173][195][195][195][174] [173][170][181][195][195][179][176][174][171][195][194][195][179] ";:X2=20 147 PRINT" [171][195][195][179] [171][195][195][195][195][195][179].[176][174].[176][174].[194] .[170][181]..[194][173][189][194]"; 148 PRINT".[194].[194] [194]..[194] [194].....[194].[173][189].[173][189].[194] ";:POKE646,1:PRINT"----"; 149 PRINT"----------------------------------"; 150 PRINT"- [209]PUNKTE: [209]KREDITE: [209]HIGHSC"; 151 PRINT"ORE: ---------------------------------------"; 152 IFV=1THENV=0:GOTO160 153 IFV=0THEN PU=-1:KR=3:HI=20:X1=20:X2=20:Y1=22:Y2=1: 154 REM 155 POKE211,9:POKE214,10:SYS58640:PRINT" GLEICH GEHT ES LOS!":POKE198,0: 156 WAIT198,1:FORI=5TO0STEP-1:FORT=1TO100:NEXTT:X1=20 157 POKE 211,16:POKE214,12:SYS58640:PRINT">[156]"I"<":GOSUB217:NEXTI 158 FORX=10TO12 STEP2 159 POKE781,X:POKE782,39:SYS59905:NEXTX 160 GOTO 190 161 GOTO 180 162 P=PEEK(56320):FORT=1TO100:NEXTT 163 IFP=119THEN175 164 IFP=123THEN177 165 IF Y2=14THEN184 166 IFY2=15THEN196 167 IFY2=16THEN196 168 Y2=Y2+1 169 I=INT(2*RND(1))+1 170 IFI=1THENX2=X2+1:GOTO 172 171 X2=X2-1 172 IFX2>37 OR X2<1 THEN169 173 POKE781,Y2-1:POKE782,X2+2:SYS59905 174 POKE211,X2:POKE214,Y2:SYS58640:PRINT"[153]@":GOTO162 175 IF X1=37THEN 165 176 X1=X1+1:GOTO 179 177 IFX1=1THEN165 178 X1=X1-1:GOTO179 179 POKE781,15:POKE782,39:SYS59905 180 POKE211,X1:POKE214,15:SYS58640:PRINT"[154]()":GOTO165 181 : 182 IF PEEK(1024+X2+Y2*40)<>32THEN186 183 GOTO 168 184 Y3=Y2+1:IFPEEK(1024+X2+Y3*40)<>32THEN 186 185 GOTO 168 186 POKE211,X2:POKE214,Y2:SYS58640:PRINT"#":GOSUB225 :GOTO187 187 FORI=0TO1:FORT=0TO7:POKE53270,T:NEXTT:NEXTI:POKE53270,200 188 FORI=16TO0STEP-1 189 POKE(55296+X2+Y2*40),I:NEXTI 190 Y2=1 191 PU=PU+1:POKE211,9:POKE214,22:SYS58640:PRINT""PU 192 IFPU>HITHENHI=PU 193 POKE211,21:POKE214,22:SYS58640:PRINT""KR 194 POKE211,36:POKE214,22:SYS58640:PRINT""HI:GOTO161 195 FORI=0TO11:FORT=0TO7:POKE53270,T:NEXTT:NEXTI:POKE53270,200 196 IF KR=0THEN 205 197 REM HIERHER ZURUECK 198 Y2=Y2+1 199 POKE(1024+X2+Y2*40),102:Y3=Y2+1:IFPEEK(1024+X2+Y3*40)=32 THEN 204 200 GOSUB225 201 FORI=0TO5:FORT=0TO7:POKE53270,T:NEXTT:NEXTI:POKE53270,200 202 FORI=2TO0STEP-1:POKE211,X2-1:POKE214,Y2-I:SYS58640:PRINT"[166][166][166]":NEXTI 203 FORT=1TO600:KR=KR-1:V=1:Y2=1:GOTO122 204 POKE(1024+X2+Y2*40),32:GOTO197 205 POKE53280,1:POKE53281,0 206 REM HIERHER ZURUECK 207 Y2=Y2+1 208 POKE(1024+X2+Y2*40),35:Y3=Y2+1:IFPEEK(1024+X2+Y3*40)=32 THEN 212 209 GOSUB225 210 FORI=2TO0STEP-1:POKE211,X2-1:POKE214,Y2-I:SYS58640:PRINT"[166][166][166]":NEXTI: 211 R=0:GOTO213 212 POKE(1024+X2+Y2*40),32:GOTO206 213 FORI=1TO3 214 POKE53281,R:POKE53280,R:FORT=1TO10:NEXTT:R=R+1:IFR=15THEN216 215 GOTO214 216 R=0:NEXTI:POKE53280,0:GOSUB225:GOTO235 217 REM SCHUESSE 218 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24: 219 FORX=15TO0STEP-1 220 POKEL,X:POKEA,15:POKEH,0:POKEFH,40:POKEFL,200:POKEW,53 221 FORT=1TO10:NEXTT 222 NEXTX 223 POKEW,0:POKEA,0 224 RETURN 225 : 226 : 227 S=54272 228 POKE S+24,15 229 POKE S+5,25 230 POKE S+1,20 231 POKE S+4,128 232 POKE S+4,129 233 RETURN 234 : 235 :Y2=1:V=2:PU=0:KR=3:GOTO 122 236 POKE53272,24 237 POKE53280,0:POKE53281,0:PRINT"[147]":POKE53271,21:POKE214,0:SYS58640 238 PRINT" ..BITTE HABEN SIE ETWAS GEDULD.." 239 POKE56334,PEEK(56334)AND 254:POKE1,PEEK(1)AND251 240 FORT=0TO2047:POKE8192+T,PEEK(53248+T):NEXTT 241 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1:POKE53272,24 242 FORI=8664TO8671:POKEI,255:NEXTI:PRINT"" 243 PRINT" "; 244 PRINT" "; 245 PRINT" ;;; ; ; ; ; ;;;"; 246 PRINT" ;;; ;;; ;;; ; ; ; ;; ; ; "; 247 PRINT"; ; ; ; ; ; ; ;; ; ; ; ;"; 248 PRINT"; ; ; ;;; ;;; ; ; ; ; ;; "; 249 PRINT"; ; ; ; ; ; ; ; ; ; ; ; ;"; 250 PRINT" ;;; ; ; ; ; ; ;;; ;;; ;;"; 251 PRINT"; ; ; "; 252 PRINT" ^ ^ ^ ^ ^ ^ ^ ^ ^"; 253 PRINT" ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ "; 254 PRINT"^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ "; 255 PRINT" "; 256 PRINT" "; 257 PRINT" "; 258 PRINT"[129] ..VON MARCUS HI"; 259 PRINT"NZMANN.. "; 260 PRINT" ."; 261 PRINT". IM JAHRE 1998 .. "; 262 PRINT" "; 263 PRINT"[152] "; 264 PRINT" "; 265 PRINT" ";:POKE646,14 266 PRINT" (DRUE"; 267 PRINT"CKE FEUERKNOPF IN PORT 2.) "; 268 PRINT" "; 269 PRINT" "; 270 PRINT" ";:GOSUB278 271 P=PEEK(56320):IFP=111THENRETURN 272 GOSUB274:GOTO271 273 POKE45,PEEK(174):POKE46,PEEK(175):CLR:LOAD"FERTIG",8 274 FORI=1TO7STEP2:POKE53270,I:NEXT:GOSUB279 275 FORI=6TO0STEP-1:POKE53270,I:NEXT:GOSUB279 276 POKE53270,200:POKESI+24,0:RETURN 277 NEXTT:RETURN 278 FORK=0TO24:POKE54272+K,0:NEXT:RETURN 279 REM ** SOUND SUBROUTINE ** 280 S=54272 281 POKE S+24,15 282 POKE S+6,240 283 POKE S+4,101 284 FOR X= 1 TO 250 STEP 125 285 POKE S+1,X 286 NEXT X 287 POKE S+4,32 288 RETURN 12000 END 12001 POKE631,19:POKE632,13:POKE633,13:POKE198,3